home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / util / dir / managers.lha / Managers / Dir / Dir.ren < prev    next >
Text File  |  1997-01-15  |  930b  |  42 lines
  1. G4C
  2.  
  3. ; to be called from Dir.gc ONLY!
  4.  
  5. WinBig -1 -1 300 27 "Rename files"
  6. WinType 11110010
  7.  
  8. xOnLoad
  9. setscreen dir.ren $lv_fmscreen
  10.  
  11. xOnOpen
  12. extract lv_file path ren_path            ; get path & store it
  13. update Dir.ren 1 $lv_file
  14.  
  15. xOnClose
  16. lvdir   Dir.gc $mlv_id refresh          ; re-read the dir.
  17. guiquit Dir.ren
  18.  
  19. xOnQuit
  20. delvar  ren_#?
  21.  
  22. xOnFail
  23. EZreq "Error in renaming file" OK ""
  24.  
  25. ;=========================> the text gad
  26.  
  27. xTextIn  5 5 290 18 "" ren_name "" 150
  28. gadid 1
  29. rename $lv_file $ren_name            ; rename the entry
  30. lvmulti Dir.gc $mlv_id off            ; set it off
  31. extract ren_name FILE ren_temp            ; get the new file name
  32. extract ren_temp CLEAN ren_temp            ; clean it up
  33. lvput   Dir.gc $mlv_id -1 $ren_temp        ; change list to the altered name
  34. lvmulti Dir.gc $mlv_id next            ; get the next one
  35. if $lv_file = ""                ; quit when it's all over
  36.   guiclose Dir.ren
  37. endif
  38. update Dir.ren 1 $lv_file            ; put up the next entry for editing
  39. setgad Dir.ren 1 on
  40.  
  41.  
  42.